;;;Draws a concrete duct bank (rectangle) to scale at the station and invert supplied.
;;;It is for profiles with a vertical scale 10x the horizontal scale.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	8-18-95
;;;	Edited:		12-18-97
;;;
;;;requires ureal.lsp uint.lsp upoint.lsp
(DEFUN C:PBS ( / smode clayr dimsc styldf stynm styft styht pt1 pt2 pt3 pt4 pt5 pt6)
  (setq smode (getvar"osmode")
        dimsc (getvar"dimscale")
        plgen (getvar"plinegen")
  );setq
;  (if c:mklayr nil (load"mklayr"))(c:svlayr)
  (setvar "osmode" 0)
  (setvar "plinegen" 0)
  (setq phtsz (ureal 1 "" "Duct Bank height (feet)" phtsz))
  (setq pwdsz (uint 1 "" "Duct Bank width (inches)" (if pwdsz pwdsz)))
  (setq tdzz (ureal 1 "" "Distance to top (feet)" tdzz))
  (setq pt0 (upoint 0 "" "Station and Elevation [enter (x,y) or pick]" nil nil))
  (setq pt1 (polar pt0 (* 1.5 pi) (+(* phtsz 10)(* tdzz 10))))
  (setq pt2 (polar pt1 (/ pi 2.00)
            (if(>(*(/ 3.00 64.00)dimsc)(* phtsz 10.00))
              (*(/ 3.00 64.00)dimsc)
              (* phtsz 10.00)
            ))
        pt3 (polar pt1 0 (/ pwdsz 24))
        pt4 (polar pt1 pi (/ pwdsz 24))
        pt5 (polar pt2 0 (/ pwdsz 24))
        pt6 (polar pt2 pi (/ pwdsz 24))
  );setq
  (command ".pline" pt3 pt4 pt6 pt5 pt3 "c")
  (setvar "osmode" smode)
  (setvar "plinegen" plgen)
;  (c:rslayr)
);defun
